10 POKE53280,.:POKE53281,.:PRINTCHR$(147);:V=53248:POKE2041,13
11 S=54272:POKES+4,17:POKES+24,15:POKES+5,9:POKES+6,248:POKES+1,4*(RND(1)+4)
20 FORN=0TO62:READA:POKE832+N,A:NEXTN
30 POKEV+2,160:POKEV+3,109:POKEV+21,2:
40 POKEV+23,2:POKEV+29,2:FORX=95TO255STEP5:FORY=25TO255STEP8:POKEV+40,Y/45
42 POKE53281,11::::::: ::::  :::POKE53281,12::::::::::::::::::   POKE53281,11
43 POKES+4,33:POKES+1,15+ABS(129-Y):POKES+4,16
44 POKE53280,11::::::: ::::  :::POKE53280,12:::::::::::::::   :::POKE53280,11
45 FORP=255TO97:POKEV+3,P:POKEV+2,P:NEXT:B=B+5:
46 PRINT"[150]  [158] [156] [149]  [150] [158]  [156] [129] [145] ";:
47 FORP=255TO97:POKEV+3,P:POKEV+2,P:NEXT:POKES+4,128:
49 IFB>352THENFORZ=1TO300:NEXT:POKES+4,0::END
50 POKEV+3,255-X:POKEV+3,255-Y:POKEV+2,255-Y:POKEV+5,A:POKES+4,129:NEXT:NEXT
70 DATA244,88,240,134,84,128,197,82,192,132,212,128,244,88,240,,,,,,,,,,,
80 DATA,,,,,,,,,,,,,,,,,,,,,,,,,,,255,255,255,128,128,128,255,255,255,255,255